home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Comm / yam / YAMGenesis.lha / YAMGenesis / GenesisOffline.yam next >
Text File  |  2001-10-21  |  2KB  |  88 lines
  1. /* GenesisOffline.yam - Go offline in Genesis
  2.  *
  3.  * $VER: GenesisOffline.yam 1.03 (7.5.01) © H. van der Ree <hivdree@uwnet.nl>
  4.  *
  5.  * This script is used after new mail is send or downloaded. It is importend
  6.  * that the option 'wait for ' is NOT ticked when the argument SENT is supplied,
  7.  * otherwise YAM will be locked!
  8.  */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. PARSE ARG args .
  13.  
  14. interface = GETVAR(GENESISINTERFACE, "GLOBAL")
  15. genesisport = "GENESIS"
  16. file = "YAM:Rexx/YahooGroupsScanner.rexx"
  17.  
  18. IF pos("SEND", upper(args)) = 1 THEN
  19. DO
  20.   CALL SETVAR(YAMSTARTED, "YES", "GLOBAL")
  21.   ADDRESS "YAM"
  22.   changedyamstatus = GETVAR("CHANGEDYAMSTATUS", "GLOBAL")
  23.   IF changedyamstatus = "YES" THEN
  24.   DO
  25.     IF OPEN(FS, 'T:YAMSTATUSLIST', 'R') THEN
  26.     DO
  27.       SETFOLDER 'Outgoing'
  28.       FOLDERINFO STEM folder.
  29.       LISTSELECT NONE
  30.       orgmsgid = READLN(FS)
  31.       DO i = 0 TO folder.TOTAL - 1
  32.         SETMAIL i
  33.         MAILINFO STEM mail.
  34.         IF POS(orgmsgid, mail.MSGID) ~= 0 THEN
  35.         DO
  36.           MAILSTATUS W
  37.           orgmsgid = READLN(FS)
  38.         END
  39.       END
  40.       CALL CLOSE(FS)
  41.     END
  42.     CALL DELETEVAR("CHANGEDYAMSTATUS", "GLOBAL")
  43.     ADDRESS COMMAND 'SYS:C/Yam2NN POST ALL'
  44.     ADDRESS COMMAND 'delete >NIL: "T:YAMSTATUSLIST"'
  45.   END
  46.   MAILCHECK MANUAL
  47.   EXIT 0
  48. END
  49.  
  50. IF pos("NEWS", upper(args)) = 1 THEN
  51. DO
  52.   ADDRESS COMMAND 'SYS:c/Yam2NN'
  53.   EXIT 0
  54. END
  55.  
  56. /* Don't go offline if one of these applications is running */
  57. ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort ATC_MAIN ATC_TRADER.1"
  58.  
  59. action = GETVAR(YAMSTART, "GLOBAL")
  60. IF action = "YES" THEN
  61. DO
  62.   DO i = 1 TO WORDS(ports)
  63.     IF SHOW('P', WORD(ports, i)) THEN CALL LastBits
  64.   END
  65.  
  66.   IF SHOW('P', genesisport) THEN
  67.   DO
  68.     ADDRESS VALUE genesisport
  69.     ISONLINE interface
  70.     IF RC = 1 THEN
  71.     DO
  72.       OFFLINE interface
  73.     END
  74.   END
  75. END
  76.  
  77. LastBits:
  78.  
  79. CALL DELETEVAR(YAMSTART, "GLOBAL")
  80. CALL DELETEVAR(YAMSTARTED, "GLOBAL")
  81.  
  82. IF EXISTS(file) THEN
  83. DO
  84.   ADDRESS REXX file
  85. END
  86.  
  87. EXIT 0
  88.